﻿* Encoding: windows-1252.
*****Scales******

***recode variables before scaling them***

RECODE o01_1 o01_2 o01_3 o01_4 o01_5 o01_6 o01_7 o01_8 o01_9 a01_1 a01_2 a01_3 a01_4 a01_5 a01_6 
    a01_7 a01_8 a01_9 (1=5) (2=4) (3=3) (4=2) (5=1).
EXECUTE.

****creating three dimensions of trust****

COMPUTE Competence3item0=5-MEAN(o01_1,o01_2,o01_3).
VARIABLE LABELS  Competence3item0 'COMPUTE Competence3item0=MEAN(o01_1,o01_2,o01_3)'.
EXECUTE.

COMPUTE Competence3item1=5-MEAN(a01_1,a01_2,a01_3).
VARIABLE LABELS  Competence3item1 'COMPUTE Competence3item1=MEAN(a01_1,a01_2,a01_3)'.
EXECUTE.

COMPUTE ben3itemsT1=MEAN(a01_4,a01_5,a01_6).
VARIABLE LABELS  ben3itemsT1 'COMPUTE ben3itemsT1=MEAN(a01_4,a01_5,a01_6)'.
EXECUTE.

COMPUTE ben3itemsT0=MEAN(o01_4,o01_5,o01_6).
VARIABLE LABELS  ben3itemsT0 'COMPUTE ben3itemsT0=MEAN(o01_4,o01_5,o01_6)'.
EXECUTE.

COMPUTE int3itemsT0=MEAN(o01_7,o01_8,o01_9).
VARIABLE LABELS  int3itemsT0 'COMPUTE int3itemsT0=MEAN(o01_7,o01_8,o01_9)'.
EXECUTE.

COMPUTE int3itemsT1=MEAN(a01_7,a01_8,a01_9).
VARIABLE LABELS  int3itemsT1 'COMPUTE int3itemsT1=MEAN(a01_7,a01_8,a01_9)'.
EXECUTE.


****main analysis: repeated measures with prior exposure as covariate****

GLM Competence3item0 Competence3item1 ben3itemsT0 ben3itemsT1 int3itemsT0 int3itemsT1
     BY group_def priorexposuretonews
  /WSFACTOR=time01 2 Difference 
  /MEASURE=competence benevolence integrity  
  /METHOD=SSTYPE(3)
  /PLOT=PROFILE(time01*group_def time01*priorexposuretonews time01*group_def*priorexposuretonews)
  /EMMEANS=TABLES(time01) COMPARE ADJ(BONFERRONI)
  /EMMEANS=TABLES(group_def) COMPARE ADJ(BONFERRONI)
  /PRINT=DESCRIPTIVE ETASQ HOMOGENEITY 
  /CRITERIA=ALPHA(.05)
  /WSDESIGN= time01
  /DESIGN= group_def priorexposuretonews*group_def.


****auxiliary analysis 1, Use control group only for this analysis --> effect of natural exposure only****

GLM Competence3item0 Competence3item1 ben3itemsT0 ben3itemsT1 int3itemsT0 int3itemsT1 BY priorexposuretonews
  /WSFACTOR=time 2 Polynomial 
  /MEASURE=competence benevolence integrity 
  /CONTRAST(priorexposuretonews)=Simple(1)
  /METHOD=SSTYPE(3)
  /PLOT=PROFILE(time*priorexposuretonews)
  /PRINT=DESCRIPTIVE ETASQ HOMOGENEITY 
  /CRITERIA=ALPHA(.05)
  /WSDESIGN=time 
  /DESIGN=priorexposuretonews.


***auxiliary analysis 2: self reported changes in trust ***

NONPAR CORR
  /VARIABLES=a02 COMP1min0 BENEV1min0 INTEG1min0
  /PRINT=SPEARMAN TWOTAIL NOSIG
  /MISSING=PAIRWISE.
